home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / ts-imagine release2 / ts-i rexx / texture_convert < prev    next >
Text File  |  1996-02-17  |  3KB  |  82 lines
  1. /*-------------------------------------------------------------------------*/
  2. /*                    TS-I ARexx interface Version 1.0                     */
  3. /*                             by Kevin Panton                             */
  4. /*-------------------------------------------------------------------------*/
  5.  
  6.  
  7. /* Initialise constants: a bit obvious I know but hey, gimme a break,*/
  8. /* this is my first ARexx script after all.                          */
  9.  
  10. SourceFile$ = 'T:TEMPSOURCE'
  11.  
  12. DestDir$    = 'T:TEMPDEST'
  13.  
  14. Suffix$     = '.ATR'
  15.  
  16. ADDRESS COMMAND
  17.  
  18. /*-----------------------------------------------------*/
  19. /*Open requester to select source----------------------*/
  20. /*-----------------------------------------------------*/
  21.  
  22. 'Requestfile RAM: TITLE "Source Texture_Studio settings" NOICONS >T:TEMPSOURCE'
  23.  
  24. /*-----------------------------------------------------*/
  25. /*Open requester to select destination directory-------*/
  26. /*-----------------------------------------------------*/
  27.  
  28. 'Requestfile RAM: TITLE "Destination Imagine Attributes directory" DRAWERSONLY NOICONS >T:TEMPDEST'
  29.  
  30. /*-----------------------------------------------------*/
  31. /*Read temporary source file into variable & trim------*/
  32. /*-----------------------------------------------------*/
  33.  
  34.    CALL Open(Source_Name, SourceFile$, 'r')
  35.  
  36.    SOURCE$=ReadLn(Source_Name)
  37.  
  38.    CALL Close(Source_Name)
  39.  
  40.    SOURCE$=Centre(SOURCE$,Length(SOURCE$)-2)
  41.  
  42. /*-----------------------------------------------------*/
  43. /*Read temporary destination Dir into variable & trim--*/
  44. /*-----------------------------------------------------*/
  45.  
  46.    CALL Open(Dest_Name, DestDir$, 'r')
  47.  
  48.    DEST$=ReadLn(Dest_Name)
  49.  
  50.    CALL Close(Dest_Name)
  51.  
  52.    DEST$=Centre(DEST$,Length(DEST$)-2)
  53.  
  54. /*-----------------------------------------------------*/
  55. /*Get the original filename & add suffix for Imagine---*/
  56. /*-----------------------------------------------------*/
  57.  
  58.    Excess = Lastpos('/',SOURCE$)
  59.  
  60.    NewName$ = DelStr(SOURCE$,1,Excess)
  61.  
  62.    LastName$ = DEST$||NewName$||Suffix$
  63.  
  64. /*-----------------------------------------------------*/
  65. /*Now actually DO the conversion-----------------------*/
  66. /*-----------------------------------------------------*/
  67.  
  68.  
  69.    'TS-I' SOURCE$ Lastname$ ' >NIL:'
  70.  
  71.  
  72. /*-----------------------------------------------------*/
  73. /*TIDY UP----------------------------------------------*/
  74. /*-----------------------------------------------------*/
  75.  
  76. 'DELETE T:TEMPSOURCE >NIL:'
  77. 'DELETE T:TEMPDEST >NIL:'
  78.  
  79. /*-----------------------------------------------------*/
  80.  
  81. EXIT
  82.